'Macro name: dateidokvorlagen'

Sub MAIN
Dim a As FileTemplates
On Error Resume Next
Dialog a
End Sub